home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00584.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  344 b   |  18 lines
  1. on mouseUp
  2.   cursor(4)
  3.   set x to the mouseLine
  4.   if x > 0 then
  5.     puppetSprite(6, 1)
  6.     set the visible of sprite 6 to 0
  7.     puppetSprite(6, 0)
  8.     if (x > 0) and (x <= count(stamp)) then
  9.       resetPage(x)
  10.     else
  11.       cursor(0)
  12.       alert("Day # " & x & " has not yet been charted.")
  13.       cursor(O)
  14.     end if
  15.   end if
  16.   cursor(0)
  17. end
  18.